Description: Set the current character set
Mapped Command: SET CHARACTER SET
FUNCTION __SetCSet(type,size)
   type := upper(substr(type,1,4))               // get the character type
   size := upper(substr(size,1,4))               // get the character size
   do case                                       // evaluate the type
   case type == "SYST"                           // standard dge character sets
      do case
      case size == "SMAL" .and. file(_dgepath_+"DGE1EGA.CHR")
         loadcset(0,_dgepath_+"DGE1EGA.CHR")
      case (size == "LARG" .or. size == "STAN" .or. size == "STD") .and. file(_dgepath_+"DGE0EGA.CHR")
         loadcset(0,_dgepath_+"DGE0EGA.CHR")
      case size == "0906" .and. file(_dgepath_+"DGE0906.STX")
         loadcset(0,_dgepath_+"DGE0906.STX")
      case size == "1106" .and. file(_dgepath_+"DGE1106.STX")
         loadcset(0,_dgepath_+"DGE1106.STX")
      case size == "1108" .and. file(_dgepath_+"DGE1108.STX")
         loadcset(0,_dgepath_+"DGE1108.STX")
      case size == "1608" .and. file(_dgepath_+"DGE1608.STX")
         loadcset(0,_dgepath_+"DGE1608.STX")
      case size == "1609" .and. file(_dgepath_+"DGE1609.STX")
         loadcset(0,_dgepath_+"DGE1609.STX")
      endcase
   case type == "ROMA"                           // roman character sets
      do case
      case size == "1628" .and. file(_dgepath_+"RMN1628.STX")
         loadcset(0,_dgepath_+"RMN1628.STX")
      case size == "1914" .and. file(_dgepath_+"RMN1914.STX")
         loadcset(0,_dgepath_+"RMN1914.STX")
      case size == "2828" .and. file(_dgepath_+"RMN2828.STX")
         loadcset(0,_dgepath_+"RMN2828.STX")
      case size == "3828" .and. file(_dgepath_+"RMN3828.STX")
         loadcset(0,_dgepath_+"RMN3828.STX")
      case size == "5742" .and. file(_dgepath_+"RMN5742.STX")
         loadcset(0,_dgepath_+"RMN5742.STX")
      endcase
   case type == "SWIS"                           // swiss character sets
      do case
      case size == "1425" .and. file(_dgepath_+"SWI1425.STX")
         loadcset(0,_dgepath_+"SWI1425.STX")
      case size == "1713" .and. file(_dgepath_+"SWI1713.STX")
         loadcset(0,_dgepath_+"SWI1713.STX")
      case size == "2525" .and. file(_dgepath_+"SWI2525.STX")
         loadcset(0,_dgepath_+"SWI2525.STX")
      case size == "3325" .and. file(_dgepath_+"SWI3325.STX")
         loadcset(0,_dgepath_+"SWI3325.STX")
      case size == "4937" .and. file(_dgepath_+"SWI4937.STX")
         loadcset(0,_dgepath_+"SWI4937.STX")
      endcase
   endcase
RETURN(Void)